home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / HyperCard-stakke / Hjem / card_2286.txt < prev    next >
Text File  |  1989-01-17  |  5KB  |  249 lines
  1. -- card: 2286 from stack: in
  2. -- bmap block id: 7123
  3. -- flags: 4000
  4. -- background id: 5184
  5. -- name: Brugervalg
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "Brugernavn" is empty
  10.   then click at the loc of card field "Brugernavn"
  11.   pass openCard  -- added 4/14 MDH
  12. end openCard
  13.  
  14. on setUserLevel whatLevel
  15.   set userLevel to whatLevel
  16.   if the userLevel is whatLevel then
  17.     put the userLevel into card field "Brugerniveau"
  18.     set hilite of button "Se" to the userLevel = 1
  19.     set hilite of button "Indtaste" to the userLevel = 2
  20.     set hilite of button "Tegne" to the userLevel = 3
  21.     set hilite of button "Forfatte" to the userLevel = 4
  22.     set hilite of button "Programmere" to the userLevel = 5
  23.     set visible of button "Tekstpile" to the userlevel >= 2
  24.     set visible of button "Effekttaster" to the userLevel >= 3
  25.     set visible of button "Blindskrift" to the userLevel = 5
  26.     set hilite of button "Tekstpile" to the textArrows
  27.     set hilite of button "Effekttaster" to the powerKeys
  28.     set hilite of button "Blindskrift" to the blindTyping
  29.   else
  30.     set hilite of the target to false
  31.   end if
  32. end setUserLevel
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: A006
  39. -- rect: left=95 top=145 right=166 bottom=223
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Se
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   setUserLevel 1
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 2 (button)
  56. -- low flags: 00
  57. -- high flags: E006
  58. -- rect: left=95 top=187 right=208 bottom=223
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Tegne
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   setUserLevel 3
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 3 (button)
  75. -- low flags: 00
  76. -- high flags: A006
  77. -- rect: left=95 top=208 right=229 bottom=223
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Forfatte
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   setUserLevel 4
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: A006
  96. -- rect: left=95 top=229 right=250 bottom=223
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Programmere
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   setUserLevel 5
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 5 (button)
  113. -- low flags: 00
  114. -- high flags: A005
  115. -- rect: left=211 top=187 right=208 bottom=314
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Effekttaster
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set powerKeys to the hilite of button "Effekttaster"
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=176 top=92 right=112 bottom=400
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 14
  140. -- style flags: 0
  141. -- line height: 18
  142. -- part name: Brugernavn
  143. ----- HyperTalk script -----
  144. on closeField
  145.   global userName
  146.   put card field "Brugernavn" into userName
  147. end closeField
  148.  
  149.  
  150.  
  151. -- part 8 (button)
  152. -- low flags: 00
  153. -- high flags: A006
  154. -- rect: left=95 top=166 right=187 bottom=223
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Indtaste
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   setUserLevel 2
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 9 (field)
  171. -- low flags: 81
  172. -- high flags: 0000
  173. -- rect: left=173 top=125 right=144 bottom=198
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: User Level
  182.  
  183.  
  184. -- part 13 (button)
  185. -- low flags: 80
  186. -- high flags: A005
  187. -- rect: left=211 top=229 right=250 bottom=314
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Blindskrift
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   set blindTyping to the hilite of button "Blindskrift"
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 14 (button)
  204. -- low flags: 00
  205. -- high flags: A005
  206. -- rect: left=211 top=166 right=187 bottom=314
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Tekstpile
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   set textArrows to the hilite of button "Tekstpile"
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 15 (field)
  223. -- low flags: 00
  224. -- high flags: 0000
  225. -- rect: left=196 top=123 right=143 bottom=421
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 0
  229. -- font id: 3
  230. -- text size: 14
  231. -- style flags: 0
  232. -- line height: 18
  233. -- part name: Brugerniveau
  234. ----- HyperTalk script -----
  235.  
  236.  
  237.  
  238.  
  239. -- part contents for background part 6
  240. ----- text -----
  241. Brugervalg
  242.  
  243. -- part contents for card part 9
  244. ----- text -----
  245. 5
  246.  
  247. -- part contents for card part 15
  248. ----- text -----
  249. 3